home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / Data / relwrite.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  510 b   |  24 lines
  1. OPEN "r",#1,"AddressFile.rel",92
  2. FIELD #1,30 AS Nam$,30 AS Address$,20 AS City$,12 AS Phone$
  3.  
  4. Entry:
  5.   PRINT 
  6.   INPUT "Name";NamEntry$
  7.   INPUT "Address";AddressEntry$
  8.   INPUT "City";CityEntry$
  9.   INPUT "Phone";PhoneEntry$
  10.   LSET Nam$=NamEntry$
  11.   LSET Address$=AddressEntry$
  12.   LSET City$=CityEntry$
  13.   LSET Phone$=PhoneEntry$
  14.   x=x+1
  15.   PUT #1,x
  16.   PRINT "Record"x" ("Nam$") stored."
  17.   PRINT "Add more records?"
  18.   INPUT "Y/N:";Ans$
  19.   IF UCASE$(Ans$)="Y" THEN Entry
  20.   
  21. CLOSE 1
  22. PRINT "File closed. Program ended."
  23.   
  24.